sub main()	dim s as string,d as date	dim f as file	msgbox("File Class Test")	if targetCarbon = true then		msgbox("Running on MacOS")		f = system.volume(0).child("Applications")	elseif targetWin32 = true then		msgbox("Running on Windows")		f = system.volume(0).child("Windows")	end if	if f.parent.nil = false then		s = f.parent.absolutepath	else		s = "Has no parent"	end if	msgbox(f.name & " " & s)	d = new date	d = f.modificationdate	s = d.longdate	msgbox("Modification date: " & s)    end sub